home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / musictex / older-versions / musictex.507 / MUSICPOS.TEX < prev    next >
Text File  |  1993-12-31  |  1KB  |  44 lines
  1. % musicpos.tex Version 4.99 decembre 1993 N. Brouard+D. Taupin
  2.  
  3. \newenvironment{music}{\catcodesmusic\parskip \z@\resetfacteurs
  4. \def\large{\normal\elemskip=2.4\Interligne}\relax
  5. \global\linesinpage=0\relax}{}
  6. %
  7. \newdimen\largevaugment
  8. \newdimen\largehaugment
  9. %
  10. \newenvironment{largemusic}{\vfill\eject\catcodesmusic\parskip \z@
  11. \resetfacteurs\def\large{\normal\elemskip=2.4\Interligne}\relax
  12. \global\linesinpage=0\relax
  13. %
  14. \edef\theoldtextwidth{\the\textwidth}
  15. \edef\theoldtextheight{\the\textheight}
  16. %
  17. \def\largetextwidth{185mm}
  18. \def\largetextheight{260mm}
  19. \largevaugment=\largetextheight\relax\advance\largevaugment by -\theoldtextheight
  20. \largehaugment=\largetextwidth\relax\advance\largehaugment by -\theoldtextwidth
  21. \divide\largevaugment by 2\relax
  22. \divide\largehaugment by 2\relax
  23. \advance\voffset by \largevaugment % essai
  24. \advance\hoffset by -\largehaugment
  25. \xdef\thelargehoffset{\the\hoffset}
  26. \hsize\largetextwidth  %  pour essai
  27. \textwidth \largetextwidth % pour essai
  28. %\check 1
  29. %
  30. \bgroup
  31. %\advance\voffset by \largevaugment % essai
  32. \textwidth \largetextwidth
  33. %\textheight \largetextheight 
  34. %
  35. \hsize\largetextwidth
  36. \vsize\largetextheight}{\egroup
  37. %
  38. \advance\voffset by 0.5\largevaugment % essai
  39. \clearpage
  40. \advance\voffset by -0.5\largevaugment % essai
  41. }
  42. %-% End of musictex.sty
  43.  
  44.